home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / psizzl / picture.psizzl < prev    next >
Text File  |  1992-08-26  |  1KB  |  49 lines
  1. % PICTURE PSIZZL - macros for making pictures
  2. %
  3. % see <GDUBOIS> frontpanel
  4. %
  5. \def\insertGRAY#1#2#3{%
  6.    \hbox{%
  7.       \translate{\z@}{#2}{\special{insert(#3)}}%
  8.       \blankbox{#1}{#2}%
  9.       }%
  10.    }%
  11. \def\insertimPRESS#1#2#3{%
  12.    \hbox{%
  13.       \translate{-0.50in}{-0.75in}{\special{mergeug(#3)}}%
  14.       \blankbox{#1}{#2}%
  15.       }%
  16.    }%
  17. \def\insertUGS#1#2#3{%
  18.    \hbox{\special{mergeug(#3)}\blankbox{#1}{#2}}%
  19.    }%
  20. \adddef\l@twrite{% define in macros
  21.    \let\insertGRAY\z@\let\insertimPRESS\z@\let\insertUGS\z@
  22.    }%
  23. \newdimen\b@xitkern\b@xitkern3pt
  24. \newdimen\b@xitrule\b@xitrule.4pt
  25. \def\boxit#1{%
  26.    \vbox{\hrule height\b@xitrule
  27.       \hbox{\vrule width\b@xitrule\kern\b@xitkern
  28.          \vbox{\kern\b@xitkern\hbox{#1}\kern\b@xitkern}%
  29.          \kern\b@xitkern\vrule width\b@xitrule
  30.          }%
  31.       \hrule height\b@xitrule
  32.       }%
  33.    }%
  34. \def\unraise{%
  35.    \dimen@-\b@xitkern\advance\dimen@-\dp\strutbox
  36.    \leavevmode\raise\dimen@
  37.    }%
  38. \def\blankbox#1#2{%
  39.    \vrule width\z@ depth\z@ height#2%
  40.    \vrule height\z@ depth\z@ width#1%
  41.    }%
  42. \newdimen\scalein\scalein 1in%
  43. \def\fr@methick{1pt}%
  44. \def\fr@me#1#2{\def\fr@mewidth{#1}\def\fr@meheight{#2}}%
  45. \def\blankp@c#1#2{\vbox{\hbox{\blankbox{#1}{#2}}}}%
  46. \def\picture#1#2{%
  47.    \boxit{\blankbox{#1}{#2}}%
  48.    }%
  49.